home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
maximo_1.arc
/
TXT.ARC
/
INV.TXT
< prev
next >
Wrap
Text File
|
1991-08-20
|
4KB
|
157 lines
;
; INV -- inventory (c) 1990 Chris Butler
;
;VIDEO M
set allsolns off
goto top
all:
set allsolns on
top:
;mouse on
global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw 488
global boxh 115
global boxtitle "Max with Ed the engineer"
set h 17 ; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14;
cload max.clp 30 1 0 ; max's face
tran on 15
cload cover.clp 32 0 1
merge toursubs.txt
iris:
set boxtitle "Max with Irv in Inventory"
set entrypoint "entry_9"
pload palette1.pcx 1
palette 1
pfree 1
cload inv.clp 31 1 0
call steps.txt invntry
label301:
newbgrnd "inv2a.pcx" 80 40 1 0 200 5
;mouse on
set str1 "Hi, Irv. What's new in the parts business?"
set str2 ""
say 1 @str1 @str2
waitkey 50
label1a:
getcmd
if @0<>"backup" label302
noise 500 200 50
waitkey 100
goto label1a
label302:
set str1 "Well, Max, we just finished an inventory using MAXIMO Series 3 "
set str2 "cycle counting and we're 96% accurate."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label301
label303:
set str1 "That's great -- we couldn't even find our parts last year. Listen"
set str2 " Irv, we need some replacement parts for an Eclipse cartoner."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label302
label304:
set str1 "OK. Let's ask Maximo what we've got."
set str2 ""
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label303
label305:
newbgrnd "18.pcx" 80,100 0 0 100 9
set str1 "Looks like there's none left. Maybe"
set str2 " we can cannibalize another piece of equipment ... "
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label304
label306:
newbgrnd "19.pcx" 80,0 0 0 100 9
set str1 "Well, that's all production machinery. We can't take any of those."
set str2 " Anyway, MAXIMO says they're obsolete. Maybe we have a substitute?"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label305
label307:
newbgrnd "20.pcx" 80,100 0 0 100 9
set str1 "OK. Use the 217215-A as a substitute. Your work order will drop that"
set str2 " bearing's `current balance' to its automatic reorder point ..."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label306
label308:
set str1 " ... but MAXIMO will automatically order 2 new pairs on a parts "
set str2 "requisition after it gets Alice's approval down in Accounting!"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label307
label309:
newbgrnd "inv2a.pcx" 80 40 1 0 50 9
set str1 "Irv, you can really put MAXIMO through its paces! You need a raise."
set str2 ""
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label308
label310:
set str1 "I agree! You know MAXIMO helped me reduce my inventory line items by "
set str2 "20%, saving us $115,000 in spares and carrying costs this year ..."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label309
label311:
set str1 " ... and MAXIMO's new bar code interface lets us check inventory in "
set str2 "and out of the system in a flash. Mechanics really appreciate that."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label310
label312:
set str1 "Good stuff, Irv. Well, I'm going down to Purchasing and Accounting to"
set str2 " talk about next year's budget."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label311
label313:
set str1 "Bye, Max."
set str2 ""
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label312
;mouse off
if @allsolns==on linkit
link master.txt entry_9
linkit:
link purch.txt all
; SUBR INV